﻿Imports Negocio
Imports Entidad
Imports Utilitario
Public Class frmDetallePedidoRuta

    Dim servicio As New RutaNegocio
    Dim servicio1 As New DocumentoClienteBultoNegocio
    Dim servicio2 As New DocumentoClienteNegocio

    Sub listarLargos(pedido As String)
        Dim ds As DataSet = servicio1.listarArticulosLargos(pedido)

        dgvLargos.DataSource = ds.Tables(0)

        If dgvLargos.RowCount <> 0 Then
            dgvLargos.Rows(0).Selected = False
        End If
    End Sub

    Sub listarBultos(pedido As String)
        Dim ds As DataSet = servicio1.listarBultosXPedido(Pedido)

        dgvBultos.DataSource = ds.Tables(0)

        If dgvBultos.RowCount <> 0 Then
            dgvBultos.Rows(0).Selected = False
        End If
    End Sub

    Sub cargarRutas()
        With cboZona
            .DataSource = servicio.listarRutas().Tables(0)
            .ValueMember = "RUT_Codigo"
            .DisplayMember = "RUT_Descripcion"
        End With
    End Sub

    Sub mostrarOtrosDatos(pedido As String)
        Dim ds As DataSet = servicio.obtenerDatosCliente(pedido)

        lblDirecEntrega.Text = ds.Tables(0).Rows(0)("CLEN_Direccion").ToString.Trim
        lblAgencia.Text = ds.Tables(0).Rows(0)("AGE_Descripcion").ToString.Trim
        lblDirecAgencia.Text = ds.Tables(0).Rows(0)("ATS_Direccion").ToString.Trim
        lblDistritoA.Text = ds.Tables(0).Rows(0)("DAgencia").ToString.Trim
        lblDistritoC.Text = ds.Tables(0).Rows(0)("DCliente").ToString.Trim
    End Sub

    Sub mostrarTotales()
        Dim acumulador1 As Integer = 0
        Dim acumulador2 As Integer = 0
        Dim acumulador3 As Integer = 0
        Dim acumulador4 As Integer = 0
        For Each fila As DataGridViewRow In dgvBultos.Rows
            acumulador1 = acumulador1 + CInt(fila.Cells("Column5").Value)
            acumulador2 = acumulador2 + CInt(fila.Cells("Column6").Value)
            acumulador3 = acumulador3 + CInt(fila.Cells("Column7").Value)
        Next
        For Each fila As DataGridViewRow In dgvLargos.Rows
            acumulador4 = acumulador4 + CInt(fila.Cells("Column4").Value)
        Next
        lblTotal1.Text = acumulador1
        lblTotal2.Text = acumulador2
        lblTotal3.Text = acumulador3
        lblTotArt.Text = acumulador4
    End Sub

    Private Sub frmDetallePedidoRuta_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cargarRutas()
        cboZona.SelectedValue = zon
        lblPedido.Text = codPedido
        Dim ds As DataSet = servicio2.obtenerEstadoPedido(codPedido)
        txtObservaciones.Text = ds.Tables(0).Rows(0)("DCI_Observaciones").ToString.Trim
        mostrarOtrosDatos(codPedido)
        listarLargos(codPedido)
        listarBultos(codPedido)
        mostrarTotales()
    End Sub

    Private Sub btnModificar_Click(sender As System.Object, e As System.EventArgs) Handles btnModificar.Click
        servicio.actualizarRutaCliente(codPedido, cboZona.SelectedValue.ToString)
        zonSel = servicio.obtenerRuta(cboZona.SelectedValue.ToString)
        DialogResult = Windows.Forms.DialogResult.OK
    End Sub

End Class